00100		SUBROUTINE PL
00200	
00300		COMMON/PLT/JX,JY,JPL,PLT,REV,RINV,IROT,RLR,RUD,CONST
00400		1 ,JREV,JINV,KA,KB,KC,KD,RTO,JA,JB,JAR,JBR,A
00500	
00600		EQUIVALENCE(LIST,CURV)
00700	
00800		DIMENSION CURV(2,3000),HIST(0/63),DIF(3)
00900	
01000		COMMON /EDGEC/ A0,A1,A2,A3,A4,A5,A6,A7,
01100		1 DEBUG,TE(1),XP(1),YP(1),PARMAX,
01200		1 HALF,FILE,RR,COH,RX,RY,CL,SL,D,B,FOUND
01300	
01400		COMMON /LISTC/LIST(6,1000),LIST5(0/1000),NEWEND,LO
01500	
01600		COMMON/COMMAC/BCLIP,TCLIP,BITS,IWID,LINLEN,FLINE,LLINE,
01700		1 LSIDE,RSIDE,DTA,HYSTAB(1)
01800	
01900		INTEGER FI,FILEN,EWE,HIST,BITS,
02000		1 XIX,XI,FLINE,RSIDE,
02100		1 NUM2,NUM3,ID,PL,LIST5,X
02200	
02300		REAL LIST,RR,CL,SL,LEAP,LEA6,LEA3,CONST,FRAC,
02400		1 RX,RY,TEXT,TH,W1,W2,B1,B2,V1,V2,
02500		1 LV,LW,LB,D1,D2,CURV,T,X1,X2,A1,A2,C1,C2,MA,LC,
02600		1 D,B,DIF,B0,BB1,C3,C4
02700		JA=-30/JPL*RLR
02800		JB=-30/JPL*RUD	
02820		IF(RINV)JB=JINV/JPL-JB
02840		IF(REV)JA=JREV/JPL-JA
02850	CC	IF(IROT.EQ.0)JB=-JB
02900		CALL LINES(3)
03000		JA=30/JPL*RLR
03100		JB=30/JPL*RUD
03101	CC	IF(IROT.EQ.0)JB=-JB
03102		IF(RINV)JB=JINV/JPL-JB
03106		IF(REV)JA=JREV/JPL-JA
03110		CALL LINES(2)
03200		JA=-30/JPL*RLR
03300		JB=30/JPL*RUD
03350	CC	IF(IROT.EQ.0)JB=-JB
03360		IF(RINV)JB=JINV/JPL-JB
03380		IF(REV)JA=JREV/JPL-JA
03400		CALL LINES(3)
03500		JA=30/JPL*RLR
03600		JB=-30/JPL*RUD
03610		IF(RINV)JB=JINV/JPL-JB
03630		IF(REV)JA=JREV/JPL-JA
03650	CC	IF(IROT.EQ.0)JB=-JB
03700		CALL LINES(2)
03705		JA=300/JPL*RLR
03710	 	JB=100/JPL*RUD
03711		IF(RINV)JB=JINV/JPL-JB
03713		IF(REV)JA=JREV/JPL-JA
03715		CALL LINES(3)
03720		JA=360/JPL*RLR
03725		JB=160/JPL*RUD
03726		IF(RINV)JB=JINV/JPL-JB
03728		IF(REV)JA=JREV/JPL-JA
03730		CALL LINES(2)
03735		JA=300/JPL*RLR
03740		JB=160/JPL*RUD
03742		IF(RINV)JB=JINV/JPL-JB
03743		IF(REV)JA=JREV/JPL-JA
03745		CALL LINES(3)
03747		JA=360/JPL*RLR
03748		JB=100/JPL*RUD
03760		IF(RINV)JB=JINV/JPL-JB
03780		IF(REV)JA=JREV/JPL-JA
03782		CALL LINES(2)
03790		CALL DPYOUT(1)
03800		END